COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	COMPILE
C00003 ENDMK
C⊗;
COMPILE;
INSTRUMENT GLISS;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P9,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
OUTA←OUTA+U3;END;
FINISH;
ARRAY F2,F3,F4,F5,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
SEG(F1);.9 6,1 11 .9 82	.7 90  0 100; < MEZZO LEGATO
SEG(F2);1 3,1 11,.4 31,.1 51,0 100; < STACCATO
SYNTH(F3);1,.8  2,.15 3,.05  999; < TOOT
SYNTH(F4);1,.5  3,.3  5,.2  7,.1  999; < CLAR
SYNTH(F5);1,.3  2,.4  3,.2  8,.2  12 .1  999; < BRIT
SEG(F6);-1,1   1,7   -1,14   -1,100; < BUZZ

ARRAY F10(512);SEG(F10);1 1 0 100;
PLAY;GLISS 0 .5 C 1200 F1 F3 C*2 F10;FINISH;